home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_B.d64 / hotel! (.txt) next >
Commodore BASIC  |  2023-02-26  |  4KB  |  136 lines
  1. 82 print"[147]":poke53280,0:poke53281,0:poke649,0
  2. 109 ifa=0thena=1:load"hotel.letters",8,1
  3. 110 gosub590:poke53272,48:poke56576,0:poke648,204:pokev+21,0:goto190
  4. 120 fora=1to36:print"[185]";:nexta:print""
  5. 130 printtab(8)"[169][146][169]  [169][146][169] [169]   [146]  [169]    [146][169] [169]   [146][169] [169][146][169]"
  6. 140 printtab(7)"[169][146][169]  [169][146][169] [169][146][169] [169][146][169]   [169][146][169]   [169][146][169]    [169][146][169]"
  7. 150 printtab(6)"[169]    [146][169] [169][146][169] [169][146][169]   [169][146][169]   [169]  [146][169]  [169][146][169]"
  8. 160 printtab(5)"[169][146][169]  [169][146][169] [169][146][169] [169][146][169]   [169][146][169]   [169][146][169]    [169][146][169] "
  9. 170 printtab(4)"[169][146][169]  [169][146][169]     [146][169]   [169][146][169]   [169]   [146][169] [169]   [146][169]"
  10. 180 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":return
  11. 190 print"[147]";:gosub120:print"";
  12. 195 fora=1to40:print"[184]";:nexta
  13. 200 print"  written by christian franzke in 1989 "
  14. 210 print"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  15. 220 print"[154][169]         "spc(19)"[169]         [146]"
  16. 225 a$="[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]"
  17. 230 fora=1to3:printleft$(a$,11)"[154] [146]"spc(19)left$(a$,11)"[154] [146]":nexta
  18. 240 printleft$(a$,11)"[154]                    "left$(a$,11)"[154] [146]"
  19. 250 printa$"[154] [146]"
  20. 260 printleft$(a$,15)" california "left$(a$,15)"[154] [146]"
  21. 270 printa$"[154] [146]":printa$"[154] [146]"
  22. 280 printleft$(a$,20)"[146][207][208]"left$(a$,20)"[154][193][146]"
  23. 300 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][211][216][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][154][209][146]"
  24. 310 goto330
  25. 320 print""tab(13)" [192][192] return [192][192] [146]":return
  26. 330 a=0:b=1
  27. 340 a=a+b:onagosub400,410,420,430,440,450
  28. 350 gosub320:fort=1to100:nextt
  29. 360 poke649,1:geta$:ifa$=chr$(13)thenpoke649,0:goto455
  30. 370 ifa=6thenb=-1
  31. 380 ifa=0thenb=1
  32. 390 goto340
  33. 400 print"[144]":return
  34. 410 print"":return
  35. 420 print"":return
  36. 430 print"":return
  37. 440 print"[158]":return
  38. 450 print"":return
  39. 455 print"";:fora=1to44:print"          ";:nexta:print
  40. 457 print""tab(8)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  41. 460 printtab(8)"[145][221] spielregeln ? (j/n)  [221]"
  42. 461 printtab(8)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  43. 462 poke649,1:geta$:ifa$<>"j"anda$<>"n"goto462
  44. 463 poke53272,21:poke56576,151:poke648,4
  45. 464 ifa$="n"goto550
  46. 466 ifa$="j"thenprint"[147]":gosub672:gosub470:goto510
  47. 468 goto462
  48. 470 print"----------------------------------------";
  49. 480 pokev+21,8:print""tab(15)"n l e i t u n g"
  50. 490 print"----------------------------------------";
  51. 500 print:return
  52. 510 reada$:ifa$="xxx"goto540
  53. 520 ifa$="head"thenprint" ";:poke653,0:wait653,1:print"[147]":gosub470:goto510
  54. 530 print"";:fora=1tolen(a$):printmid$(a$,a,1)"*[157]";:forb=1to10:nextb,a:print" "r$:goto510
  55. 540 print" "chr$(141):poke653,0:wait653,1
  56. 550 pokev+21,0:print"[147]":gosub120:print""tab(11)"[192]  please  wait  [192]"
  57. 580 load"hotel.start",8:run
  58. 590 print"[147]":v=53248:poke2042,13:forn=0to62:readq:poke832+n,q:nextn
  59. 600 pokev+23,4:pokev+29,4:pokev+41,6
  60. 610 pokev+4,150:pokev+5,100:pokev+21,4:a=0:b=1
  61. 620 a=a+b:onagosub400,410,420,430,440,450
  62. 630 gosub670:fort=1to100:nextt
  63. 640 ifa=6thenb=-1
  64. 650 ifa=0thenfort=1to200:nextt:return
  65. 660 goto620
  66. 670 print""tab(8)"franzkes software house":printtab(16)"presents:":return
  67. 672 poke2043,13:forn=0to62:readq:poke832+n,q:nextn
  68. 673 pokev+23,8:pokev+29,8:pokev+42,5:pokev+6,95:pokev+7,50:return
  69. 680 data 0,0,0
  70. 690 data 0,0,0
  71. 700 data 0,24,0
  72. 710 data 0,126,0
  73. 720 data 1,195,128
  74. 730 data 7,0,224
  75. 740 data 28,0,56
  76. 750 data 112,0,14
  77. 760 data 192,0,3
  78. 770 data 255,190,231
  79. 780 data 255,255,102
  80. 790 data 96,99,102
  81. 800 data 100,96,102
  82. 810 data 124,126,126
  83. 820 data 124,63,126
  84. 830 data 100,3,102
  85. 840 data 96,99,102
  86. 850 data 96,127,102
  87. 860 data 240,62,231
  88. 870 data 0,0,0
  89. 880 data 255,255,255
  90. 885 rem ==========
  91. 890 data 0,0,0
  92. 895 data 0,0,0
  93. 900 data 0,0,0
  94. 905 data 0,60,0
  95. 910 data 0,231,0
  96. 915 data 1,129,128
  97. 920 data 1,0,128
  98. 925 data 1,0,128
  99. 930 data 1,0,128
  100. 935 data 1,0,128
  101. 940 data 1,114,128
  102. 945 data 1,153,128
  103. 950 data 1,207,128
  104. 955 data 6,129,96
  105. 960 data 11,129,208
  106. 965 data 26,129,88
  107. 970 data 16,129,8
  108. 975 data 25,129,152
  109. 980 data 15,0,240
  110. 985 data 0,0,0
  111. 990 data 0,0,0
  112. 1000 data  "[159]zu ihrem 18.geburtstag entschliessen"
  113. 1010 data  "sie sich,  eine autosammlung anzule-"
  114. 1020 data  "gen.  um das zu finanzieren, errich-"
  115. 1030 data  "ten sie ein hotelimperium in der ge-"
  116. 1040 data  "samten welt."
  117. 1050 data  "[144][159]aus einer erbschaft erhalten sie ein"
  118. 1060 data  "startkapital von 75000 dm und einige"
  119. 1070 data  "aktien. - passen sie in ihren hotels"
  120. 1080 data  "auf,  dass sie  nicht zuviel oder zu"
  121. 1090 data  "wenig personal haben.
  122. 1100 [131]  "stop                shift wait"
  123. 1110 [131]  "head"
  124. 1120 [131]  "openes spielen 2-4 spieler mit."
  125. 1130 [131]  "mit 'reisen' beenden sie den zug und"
  126. 1140 [131]  "koennen zu einer anderen  stadt rei-"
  127. 1150 [131]  "sen.  - gesteuert kann mit dem  joy-"
  128. 1160 [131]  "stick in port 2 oder mit den cursor-"
  129. 1165 [131]  "tasten + return (=knopf)."
  130. 1170 [131]  "stopopendas  spiel endet  damit,  dass jedes"
  131. 1180 [131]  "auto ein mal vertreten ist. gewinner"
  132. 1190 [131]  "ist  derjenige mit der groessten au-"
  133. 1195 [131]  "tosammlung."
  134. 1200 [131] "stop                shift wait"
  135. 1210 [131]  "xxx"
  136.